1 IFPEEK(816)=165ANDPEEK(817)=244THEN5
2 PRINT"KILL CARTRIDGE!!":END
5 POKE53281,0:POKE53280,0:CLR
10 PRINT"	[142]";
20 PRINT"";
25 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15+16:POKE54295,240+3:POKE54294,70
27 POKE54277,0:POKE54278,224:POKE54275,1:POKE54276,65:POKE54272,90:POKE54273,2
29 POKE54284,0:POKE54285,15*14+0:POKE54283,129:POKE54272+7,0:POKE54273+7,240
30 AA$="     [176][192][192][204][175][210][198][195][196][197][208]  "
40 AB$="   [176][192][177][192][192][177][192][192][178][195][196][197][183]  "
50 AC$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
60 AD$="[160] [191][163][163][163][163][163][163][163][163][163][191]     "
70 AE$="[160]  [191][191][191][191][191][191][191][191][191][190]     "
80 BA$="     [176][192][192][204][210][198][195][196][197][183][208]  "
90 BB$="   [176][192][177][192][192][177][192][192][178][196][197][183][183]  "
100 BC$="[160][176][192][177][177][177][177][177][177][177][177][177][192][174]    "
110 BD$="[160] [161][163][163][163][163][163][163][163][163][163][161]     "
120 BE$="[160] [223][175][198][175][196][210][195][175][198][197]      "
121 C$="[197][183][183][197][183][183][183][197][196][197][183][183][197][195][198][196][183][183][183][196][183][183][197][183][183][183][183][196][195][196][197][196][197][195][210][195][197][183][196][197]":C$=C$+C$
129 PRINT"[149]";MID$(C$,40,39)
130 PRINT"";
140 FORI=1TO17STEP2:J=I+1
150 PRINTRIGHT$(AA$,I):PRINTRIGHT$(AB$,I):PRINTRIGHT$(AC$,I):PRINTRIGHT$(AD$,I)
160 PRINTRIGHT$(AE$,I):PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
170 PRINTRIGHT$(BA$,J):PRINTRIGHT$(BB$,J):PRINTRIGHT$(BC$,J):PRINTRIGHT$(BD$,J)
180 PRINTRIGHT$(BE$,J):PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
190 NEXTI
200 FORI=1TO10STEP2:J=I+1
240 PRINTSPC(I)AA$:PRINTSPC(I)AB$:PRINTSPC(I)AC$:PRINTSPC(I)AD$:PRINTSPC(I)AE$
245 PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
250 PRINTSPC(J)BA$:PRINTSPC(J)BB$:PRINTSPC(J)BC$:PRINTSPC(J)BD$:PRINTSPC(J)BE$
255 PRINT"[145][145][145][145][145]";:FORK=1TO50:NEXT
260 NEXT:C=I
265 FORJ=1TO2:FORI=1TO40STEP2
270 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
272 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
275 FORK=1TO15:NEXT
280 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
282 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
285 FORK=1TO15:NEXT
290 NEXT:NEXT
300 PRINT"";
310 PRINT"[151]       [223][169]     [146][169]          [169] [146][169]"
320 PRINT"[152]      [169]     [146][169]          [169] [146][169]"
330 PRINT"[155]      [169]        [169] [223][169][194][223]"
340 PRINT"===================================[165][194] [146]>"
345 REM PRINT "       [146][169][169]        [146][169]            [223]"
350 PRINT"[155]     [146][169]          [146][223] [146][169][223][194][146][169]"
360 PRINT"[152]   [169]     [146][169]           [146][223]  [223]"
370 PRINT"[151]   [169]     [146][169]            [146][223]  [223]":PRINT"";
385 FORJ=1TO2:FORI=1TO40STEP2
390 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
392 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
395 FORK=1TO15:NEXT
400 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
402 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
405 FORK=1TO15:NEXT
410 NEXT:NEXT
420 PRINT"";
430 PRINT"     ,,, ,,, ,,, ,,, ,,, ,  , ,,, ,,,"
440 PRINT"    [150], , [155], , [154],   [153],   [150],   [155],, , [154] ,  [153],  "
450 PRINT"   [150],,, [155],,, [154],,, [153],,, [150],,, [155],, , [154] ,  [153],,,"
460 PRINT"  ,   [156],,  ,     , ,   [156], ,,  ,    ,"
470 PRINT" ,   [156], , ,     , ,   [156], ,,  ,    ,"
480 PRINT",   [156], , ,,, ,,, ,,, [156],  ,  ,  ,,,":PRINT"";
500 FORJ=1TO2:FORI=1TO40STEP2
510 PRINTSPC(C)AA$:PRINTSPC(C)AB$:PRINTSPC(C)AC$:PRINTSPC(C)AD$:PRINTSPC(C)AE$
512 PRINT"[149]"MID$(C$,I,39)"[145][145][145][145][145][145]"
515 FORK=1TO15:NEXT
520 PRINTSPC(C)BA$:PRINTSPC(C)BB$:PRINTSPC(C)BC$:PRINTSPC(C)BD$:PRINTSPC(C)BE$
522 PRINT"[149]"MID$(C$,I+1,39)"[145][145][145][145][145][145]"
525 FORK=1TO15:NEXT
530 NEXT:NEXT
540 POKE54295,240+1:POKE54276+7,0:POKE54276,0:POKE54278,240+12
550 POKE54273,1:POKE54276,129:POKE54276,128
560 PRINT"[147]        S C A B O O O O O M  !"
561 PRINT"        F L A D A M M M M M  !"
565 FORI=1TO3
570 WAIT53265,128:POKE53281,11:POKE53280,11:FORJ=1TO10:NEXT
580 WAIT53265,128:POKE53281,12:POKE53280,12:FORJ=1TO10:NEXT
590 WAIT53265,128:POKE53281,15:POKE53280,15:FORJ=1TO10:NEXT
600 WAIT53265,128:POKE53281,1:POKE53280,1:FORJ=1TO10:NEXT
610 WAIT53265,128:POKE53281,15:POKE53280,15:FORJ=1TO10:NEXT
620 WAIT53265,128:POKE53281,12:POKE53280,12:FORJ=1TO10:NEXT
630 WAIT53265,128:POKE53281,11:POKE53280,11:FORJ=1TO10:NEXT
640 WAIT53265,128:POKE53281,0:POKE53280,0:FORJ=1TO10:NEXT:NEXT
650 FORI=1TO400:NEXT
655 PRINT"[147][155]";
660 PRINT"  [223][169]          [169]     [223][169][223]"
670 PRINT"   [223][169]           [169]       [223][169]  [223]"
680 PRINT"    [223][169]          [146][169]  [223]  [169]    [223]"
690 PRINT"   [146][223]  [146][169]            [169]  [146][169][223]  [223]"
700 PRINT"   [146][223][169]                      "
710 PRINT"            [223][169]          "
720 PRINT"              [146][223]       [146][169]      "
730 PRINT"              [146][223]     [146][169]      "
740 PRINT:PRINT:PRINT:PRINT
750 PRINT"   **  **  **  **   ** ******  ****   "
760 PRINT"   ** **   **  ***  ** ****** **  **  "
770 PRINT"   ****    **  **** ** **     **      "
780 PRINT"   ****    **  ******* ****    ****  "
790 PRINT"   ** **   **  ** **** **         **   "
800 PRINT"   **  **  **  **  *** ****** **  **   "
810 PRINT"   **  **  **  **   ** ******  ****    "
820 FORI=1TO2500:NEXT
900 FORI=0TO24:POKE54272+I,0:NEXT:POKE54296,15
910 FORI=0TO10:R(I)=200+7*RND(0):NEXT
920 POKE56334,0
1000 PRINT"[147]";
1010 PRINTSPC(8)"    [146]"
1015 PRINTSPC(8)" [146]   [146]"
1020 PRINTSPC(7)"CO[146]DIN[146]G: KENTSU, !AJY"
1025 PRINTSPC(8)" [146]   [146]"
1030 PRINTSPC(8)" [146]   [146]"
1035 PRINTSPC(8)" [146]   [146]"
1040 PRINTSPC(8)"    [146]"
1045 PRINTSPC(8)" [146]"
1050 PRINTSPC(8)" [146]"
1055 PRINTSPC(8)" [146]"
1060 PRINTSPC(8)" [146]"
1065 PRINTSPC(8)" [146]"
1090 GOSUB1500
1100 PRINT"";
1110 PRINTSPC(14)"    [146]"
1115 PRINTSPC(14)" [146]"
1120 PRINTSPC(14)" [146]"
1125 PRINTSPC(14)" [146]"
1130 PRINTSPC(7)"GF[146]X: [146]   [146]KENTSU, MAKE"
1135 PRINTSPC(14)"    [146]"
1140 PRINTSPC(17)" [146]"
1145 PRINTSPC(17)" [146]"
1150 PRINTSPC(17)" [146]"
1155 PRINTSPC(17)" [146]"
1160 PRINTSPC(17)" [146]"
1165 PRINTSPC(14)"    [146]"
1190 GOSUB1500
1200 PRINT"";
1210 PRINTSPC(20)"     [146]"
1215 PRINTSPC(22)" [146]"
1220 PRINTSPC(22)" [146]"
1225 PRINTSPC(22)" [146]"
1230 PRINTSPC(22)" [146]"
1235 PRINTSPC(22)" [146]"
1240 PRINTSPC(7)"MUSIC[146]S: !AJ[146]Y, MA[146]KE"
1245 PRINTSPC(22)" [146]"
1250 PRINTSPC(22)" [146]"
1255 PRINTSPC(22)" [146]"
1260 PRINTSPC(22)" [146]"
1265 PRINTSPC(22)" [146]"
1290 GOSUB1500
1300 PRINT"";
1310 PRINTSPC(27)"  [146]"
1315 PRINTSPC(27)"  [146]"
1320 PRINTSPC(27)"  [146]"
1325 PRINTSPC(27)"  [146]"
1330 PRINTSPC(27)"  [146]"
1335 PRINTSPC(27)"  [146]"
1340 PRINTSPC(27)"  [146]"
1345 PRINTSPC(27)"  [146]"
1350 PRINTSPC(7)"SO[146]UNDS: KEN[146]TSU, [146]!AJY  [146]"
1355 PRINTSPC(27)"  [146]"
1360 PRINTSPC(27)"  [146]"
1365 PRINTSPC(27)"  [146]"
1390 GOSUB1500
1400 POKE56334,1:POKE53270,200:FORI=1TO70:NEXT:GOTO2000
1500 POKE54278+7,14*16+10:POKE54273+7,100:POKE54276+7,129
1502 FORJ=1TO2:NEXT:POKE54276+7,128
1505 FORI=0TO6
1510 POKE54275,6
1515 POKE54278,14*16+9
1520 POKE54276,65
1530 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
1535 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
1540 POKE54273,4:POKE54275,8:FORJ=1TO120:NEXT
1550 NEXT
1560 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
1565 FORJ=10TO0STEP-1.8:POKE54273,J:POKE53270,R(J):NEXT
1570 POKE54273,4:POKE54275,8
1590 RETURN
2000 POKE53281,11:POKE53280,11
2001 POKE54278+7,14*16+14:POKE54273+7,0:POKE54272+7,240:POKE54276+7,129
2002 FORJ=1TO2:NEXT:POKE54276+7,128
2003 POKE54276,0
2005 POKE53281,0:POKE53280,0:PRINT"[147]";
2010 PRINTSPC(17)"[223][169][146]"
2020 PRINTSPC(17)" [223][169] [146]"
2030 PRINTSPC(17)"[172][187][172][187][146]"
2040 PRINTSPC(17)"[188][190][188][190][146]"
2050 PRINTSPC(15)"    [146]"
2060 PRINTSPC(15)"    [146]"
2070 PRINTSPC(15)"  [223][169]  [146]"
2080 PRINTSPC(15)"[223]        [146][169]"
2090 PRINTSPC(16)"[223]      [146][169]"
2100 PRINT"            CODE 100% BASIC!"
2500 PRINT"[144]LOAD"CHR$(34)"01*"CHR$(34)",8:"
2510 PRINT"RUN:";
2520 POKE198,2:POKE631,13:POKE632,13
2530 END